Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00110.ls

Text File | 2000-03-27 | 387 b | 28 lines

property pTimer, pMaxTime
global gDemoVersion

on beginSprite
  pTimer = nowTicks()
  if gDemoVersion then
    pMaxTime = seconds(10)
  else
    pMaxTime = seconds(3)
  end if
end

on exitFrame
  if ticksSince(pTimer) < pMaxTime then
    if gDemoVersion or not (the mouseDown) then
      go(the frame)
    end if
  end if
end

on keyDown
  go(the frame + 1)
end

on idle
  nothing()
end